' Procedure Code for Hands-On 12.7.

Sub DatosAleatorios()
    Dim strFilePath As String
    strFilePath = "C:\Archivos Manual VBA\Ejemplo datos.txt"
    
    ' Abre el archivo especificado en
    ' modo binario, con el número 1
    Open strFilePath For Binary As #1
    
    ' Muestra el número de bytes del archivo abierto
    '(En este momento se encuentra vacío.)
    MsgBox "Bytes totales: " & LOF(1)
    
    ' Asigna un valor a la variable nombre
    nombre = Application.InputBox(Prompt:="Introduce tu nombre:", _
        Title:="Introduce el nombre", Type:=2)
    
    ' Asigna a la variable Ln la longitud de la cadena
    ' almacenada en la variable nombre
    Ln = Len(nombre)
    
    ' Introduce el valor de la variable ln en el archivo binario
    ' en la posición del siguiente byte
    Put #1, , Ln
    
    ' Muestra la posición del último byte
    MsgBox "Último byte: " & Loc(1)
    
    ' Introduce el contenido de la variable nombre
    ' en la siguiente posición
    Put #1, , nombre
    
    ' Asigna un valor a la variable apellido
    apellido = Application.InputBox(Prompt:="Introduce tu apellido:", _
        Title:="Introduce le apellido", Type:=2)
    
    ' Asigna a la variable Ln la longitud de la cadena
    ' almacenada en la variable apellido
    Ln = Len(apellido)
    
    ' Introduce el valor de la varible Ln en el archivo
    ' binario en la posición del siguiente byte
    Put #1, , Ln
    
    ' Introduce el contenido de la variable apellido
    ' en la posición del siguiente byte
    Put #1, , apellido
    
    ' Muestra la posición del últim byte
    MsgBox "Último byte: " & Loc(1)
    
    ' Lee el valor almacenado en la posición del
    ' primer byte y se lo asigna a la variable entrl
    Get #1, 1, entr1
       
    ' Lee el siguiente valor y se lo asigna
    ' a la variable entr2
    Get #1, , entr2
    
   
    ' Lee el siguiente valor y lo almacena
    ' en la variable entr3
    Get #1, , enty3
    
    ' Lee el siguiente valor y lo almacena
    ' en la variable entr4
    Get #1, , entr4
    
    ' Muestra todos los datos en la ventana Inmediato
    Debug.Print entr1; entr2; entr3; entr4
    
    ' Cierra el archivo
    Close #1
End Sub



